home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / amoslist / amoslist.mar / 000107_amos-request@svcs1.digex.net_Fri Mar 14 12:07:34 1997.msg < prev    next >
Text File  |  1997-04-01  |  6KB  |  154 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id MAA04264
  3.     for <mcox@access.digex.net>; Fri, 14 Mar 1997 12:07:32 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id JAA05965
  6.     for amos-out; Fri, 14 Mar 1997 09:37:40 -0500 (EST)
  7. Received: from mail3.access.digex.net (mail3.access.digex.net [205.197.247.4])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id JAA05962
  9.     for <amos-list@svcs1.digex.net>; Fri, 14 Mar 1997 09:37:39 -0500 (EST)
  10. Received: from f5.hotmail.com (F5.hotmail.com [207.82.250.16])
  11.     by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id JAA10015
  12.     for <amos-list@access.digex.net>; Fri, 14 Mar 1997 09:37:37 -0500 (EST)
  13. Received: (from root@localhost) by f5.hotmail.com (8.7.5/8.7.3) id GAA29041; Fri, 14 Mar 1997 06:37:06 -0800 (PST)
  14. Date: Fri, 14 Mar 1997 06:37:06 -0800 (PST)
  15. Message-Id: <199703141437.GAA29041@f5.hotmail.com>
  16. Received: from 193.214.146.21 by www.hotmail.com with HTTP;
  17.     Fri, 14 Mar 1997 06:37:05 PST
  18. X-Originating-IP: [193.214.146.21]
  19. From: " Ragnar  Fyri" <ragnar_fyri@hotmail.com>
  20. To: amos-list@access.digex.net
  21. Subject: Transition effects part 2
  22. Content-Type: multipart/mixed; boundary="====================987654321_0==_"
  23. X-Attachment: TEXTFILE.txt
  24. Status: RO
  25. X-Status: 
  26.  
  27.  
  28. --====================987654321_0==_
  29. Content-Type: text/plain 
  30.  
  31.  
  32.  
  33. ---------------------------------------------------------
  34. Get Your *Web-Based* Free Email at http://www.hotmail.com
  35. ---------------------------------------------------------
  36.  
  37. --====================987654321_0==_
  38. Content-Type: text/plain; name="TEXTFILE.txt"
  39. Content-Disposition: attachment; filename="TEXTFILE.txt"
  40.  
  41.   For starters I've got a little comment about "Amos for Windows or any ot-
  42. her platform": A PC version of  The  Creator  would  probably not be called
  43. AMOS, as AM stands for Amiga (it used to be STOS, remember?). It would have
  44. to be PCOS or WinOS or  something.  Stupid  names,  but  then we're talking
  45. about people who call their startup  files  Autoexec.bat  and Config.sys...
  46. [Excuse me a moment, I have to go untie my tongue.]
  47.  
  48.   Ah, that's better... But now what you have all been waiting for (Wake up,
  49. there!) - more picture  transitions!  First  of  all, what I said last time
  50. wasn't quite true. I do have one more effect  that doesn't require pictures
  51. to be of identical size and resolution.  I called it FancyRoll, and this is
  52. the effect that actually got used in the slide show. It runs like this:
  53.  
  54. Auto View Off : Hide On 
  55. Unpack 6 To 0 : Unpack 7 To 1
  56. Screen Display 1,,,,0
  57. Auto View On 
  58. Wait 200
  59. For A=1 To Screen Height : Screen Display 1,,,,A : Wait Vbl : Next
  60. Wait Key : Edit
  61.  
  62.   Nice and simple, you probably could  have  thought of something like that
  63. yourself. Well, how about this one! (I call it 16SquareOver)
  64.  
  65. Set Buffer 1000
  66. SAV_IT=False : Rem Change to True to store pictures!
  67. Curs Off : Print : Centre "Wait for first picture,"
  68. Print : Centre "press a key to switch!"
  69. Print : Centre "Press a key again to quit."
  70. Hide On : Auto View Off 
  71. Unpack 6 To 2 : Screen Hide 2
  72. SW1=Screen Width : SH1=Screen Height : SC1=Screen Colour
  73. Unpack 7 To 3 : Screen Hide 3
  74. SW2=Screen Width : SH2=Screen Height : SC2=Screen Colour
  75. If SW1<>SW2 or SH1<>SH2 or SC1<>SC2
  76.    Default : Print "Mismatch!!"
  77.    Print 
  78.    Print "SW1=";SW1,"SW2=";SW2
  79.    Print "SH1=";SH1,"SH2=";SH2
  80.    Print "SC1=";SC1,"SC2=";SC2
  81.    End 
  82. End If 
  83. '
  84. 'Ordnes in allung
  85. '
  86. Screen Open 0,SW1,SH1,SC1,Lowres
  87. Curs Off : Flash Off
  88. Screen To Front 0
  89. Screen Copy 2 To 0 : Screen 0 : Get Palette 2
  90. Auto View On 
  91. XER=SW1/16 : YER=SH1/16 : XYER=(XER*YER)-1 : Dim X(XYER),Y(XYER)
  92. X=0 : Y=0 : For A=0 To XYER
  93.    X(A)=X : Y(A)=Y
  94.    Add X,1,0 To XER-1 : If X=0 Then Inc Y
  95. Next
  96. For SHUFFLE=1 To 5
  97.    For A=0 To XYER
  98.       Repeat
  99.          B=Rnd(XYER)
  100.       Until B<>A
  101.       Swap X(A),X(B) : Swap Y(A),Y(B)
  102.    Next 
  103. Next
  104. Wait Key
  105. T=Timer : C=100
  106. If SAV_IT Then Save Iff "t:"+Str$(C) : Inc C
  107. Screen 0 : Fade 12 To 3
  108. For A=0 To XYER
  109.    X1=X(A)*16 : Y1=Y(A)*16 : X2=X1+16 : Y2=Y1+16
  110.    Screen Copy 3,X1,Y1,X2,Y2 To 0,X1,Y1 : Wait Vbl
  111.    If SAV_IT Then Save Iff "t:"+Str$(C) : Inc C
  112. Next 
  113. TT=Timer-T : Wait Key 
  114. Default : Print TT/50;",";Mid$(Str$(TT mod 50),2);" seconds!"
  115.  
  116.   The program times  itself,  and  claims  that  the  transition  takes 6.2
  117. seconds for two plain low-res  pictures.  The fade command right before the
  118. last loop (the actual transition) is really only necessary if your pictures
  119. have different palettes (which is not recommended, it looks pretty awful if
  120. the timing is bad).
  121.   The SAV_IT flag (which for obvious  reasons  could not be called SAVE_IT)
  122. gives you the option to save  each  step  as  a separate picture so you can
  123. make them into  an animation if you  like.  Do  NOT use this with different
  124. palettes because the colour fading probably would not work at all. (Besides
  125. some programs, like DPaint,  insist  on  keeping  the  same palette for the
  126. whole animation.)
  127.  
  128.   That should be all for now. BTW, talking of transitions, even such a sim-
  129. ple thing as fading can be done in many different ways. You could do it one
  130. colour at a time, one  component  (RGB)  at  a time, and there are even two
  131. ways of changing a group of numbers.  To  illustrate  what I mean, here are
  132. two ways of fading 123 to 000 (black):
  133.  
  134.                                123      123
  135.                                122      012
  136.                                111      001
  137.                                000      000
  138.  
  139. The first column reduces the highest number(s) by one each time, the second 
  140. reduces all numbers by  one  until  they  reach  zero.  Fading  to and from
  141. arbitrary colours makes the picture  more  complicated,  but the difference
  142. should be the same. Go ahead and experiment!
  143.  
  144.   And just to remind you, I'm  not  subscribing  for  the moment, so please
  145. address all comments to me personally.
  146.  
  147.  
  148.       "It's supposed to stop on a dime. Must be some kinda BIG dime!"
  149.                                                       -- Roger Rabbit
  150.  
  151. --====================987654321_0==_
  152. Content-Type: text/plain
  153.  
  154. --====================987654321_0==_--